home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple Reference & Presen…rary 6 (Reseller Edition)
/
Apple Ref. & Pres. Lib.v6.0.toast
/
pc
/
3-Presentations
/
Apple Demos
/
Training
/
HyperCard 2.0 Training
/
•HC 2.0-2
/
stack.txt
< prev
Wrap
Text File
|
1990-08-07
|
4KB
|
139 lines
-- stack: in.0-2
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 10
-- first background id: 2659
-- card count: 72
-- first card id: 2833
-- list block id: 9762
-- print block id: 0
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 337440 bytes
-- stack block size: 6144 bytes
-- created by hypercard version: 0x01258000
-- compacted by hypercard version: 0x01228000
-- modified by hypercard version: 0x01228000
-- opened by hypercard version: 0x01258000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0x7500DA006D00B600
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
-- ================ Apple Training Support =================
--
-- Project Name: HyperCard 2.0 Product Training
--
-- Apple employees:
-- Design and Development: Jeff Brechlin
-- Team Leader: Mary VanRiper
--
-- Contractors:
-- Design/Animations: Anne Wysocki
-- Programmers: Gabriel Acosta, Kristi Wachter, Anne Wysocki
-- Last modified: April 6, 1990
-- ========================================================
-- ========================================================
-- XCMD's:
-- in this stack:
-- Studio1 : © 1989 by Electronic Arts
-- PaintPICT : © 1989 by Ruben Pinchanski
-- SaveColorState
-- SetColorState
-- GetMaxColors
-- ShowDialog
-- XFCN's:
-- in stack •HC 2.0-2:
-- Hpopupmenu() : Hierarchical PopupMenu 1.2, © 1988-1989 by
-- Guy de Picciotto, its author, All Rights Reserved
-- ========================================================
-- This handler displays text from a hidden field, allowing
-- a single card to replace several cards.
-- The hidden "text" field contains specially formatted text.
-- This handler gets a particular chunk of text, puts it into the
-- "textDisplay" fld, and shows it.
on DisplayText num
put (offset("["& num & "]", cd field "text")+4) into firstChar
put (offset("[" & (Num + 1) & "]", cd field "text")-2) into lastChar
if lastChar > 0 then
lock screen
put char firstChar to lastChar of cd field "text" into cd field "textdisplay"
unlock screen with wipe right
end if
end DisplayText
--===================
-- These handlers trap for arrow keys and menu choices
-- so they can't be used to navigate.
on arrowKey
end arrowKey
on enterKey
end enterKey
on returnKey
end returnKey
on doMenu menuChoice
if menuChoice is in "Home,Quit HyperCard,Help,New Stack...,Open Stack..." then
global CameFrom,stakName
put the short name of this cd into CameFrom
put the short name of this stack into stakName
lock screen
go to cd "hi" of stack "Intro to HyperCard 2.0"
else if menuChoice is in "Back,Recent,First,Prev,Next,Last" or menuChoice is in "Find...,Message,New Card,Delete Card,Cut Card" then
exit to HyperCard
end if
pass doMenu
end doMenu